﻿Imports SERM.IModule
Imports SERM.Core

Public Class PRModule
    Implements ISERMModule

    Private _context As SermDataContext
    Private _gModule As String = "PUR"
    Private _caption As String = "ใบเสนอซื้อ"
    Private _caption_En As String = "Purchasing Requisition"
    Private _moduleName As String = "PR"
    Private _ParentName As String = ""

    Public ReadOnly Property GroupModule As String Implements ISERMModule.GroupModule
        Get
            Return _gModule
        End Get
    End Property

    Public Function IntitalFrom(DataContext As SermDataContext, lang As Integer) As SERMTempForm Implements ISERMModule.IntitalFrom
        Dim pofrm As PRForm
        pofrm = New PRForm()
        pofrm.DataContext = DataContext
        If CType(lang, SermLang) = SermLang.EN Then
            pofrm.Caption = ModuleCaption_En
        Else
            pofrm.Caption = ModuleCaption
        End If
        Return pofrm
    End Function

    Public ReadOnly Property ModuleCaption As String Implements ISERMModule.ModuleCaption
        Get
            Return _caption
        End Get
    End Property

    Public ReadOnly Property ModuleCaption_En As String Implements ISERMModule.ModuleCaption_En
        Get
            Return _caption_En
        End Get
    End Property

    Public ReadOnly Property ModuleName As String Implements ISERMModule.ModuleName
        Get
            Return _moduleName
        End Get
    End Property

    Public ReadOnly Property ModuleParent As String Implements ISERMModule.ModuleParent
        Get
            Return _ParentName
        End Get
    End Property
End Class
